home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / FOXRYAN.ZIP / VERIFY2.PRG < prev    next >
Text File  |  1993-07-05  |  2KB  |  88 lines
  1. for m.i = 1 to 22
  2.     m.form = "form" + alltrim(str(m.i))
  3.     m.dbfile = m.form + ".dbf"
  4.     for m.j = 0 to 13
  5.         m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
  6.         m.scrfile = m.form +  alltrim(m.letter) + ".scx"
  7.         ?m.scrfile
  8.         select 0
  9.         if not file(m.scrfile)
  10.             exit
  11.         endif
  12.         use &scrfile alias screen
  13.         go top
  14.         locate for screen.objtype=2 or screen.objtype=13 or screen.objtype=15
  15.         do while not eof()
  16.             if inkey()=27
  17.                 suspend
  18.             endif
  19.             delete file temp.tmp
  20.             copy memo screen.name to temp.tmp
  21.             m.fp = fopen("temp.tmp", 0)
  22.             m.str = fread(m.fp, 100)
  23.             =fclose (m.fp)
  24.             if "FORM" $ upper(m.str)
  25.                 if substr(m.str, 7, 1) = "."
  26.                 * form13.q12   form13.q1
  27.                 * 123456789A   123456789
  28.                     m.outstr = m.form + substr(m.str, 7, len(m.str)-6)
  29.                 else
  30.                 * form1.q12   form1.q1
  31.                 * 123456789   12345678
  32.                     m.outstr = m.form + substr(m.str, 6, len(m.str)-5)
  33.                 endif
  34.                 m.fp = fopen("temp.tmp", 1)
  35.                 =fwrite(m.fp, iif(screen.objtype=2, upper(m.outstr), m.outstr))
  36.                 =fclose(m.fp)
  37.                 append memo screen.name from temp.tmp overwrite
  38.             endif
  39.             delete file temp.tmp
  40.             copy memo screen.tag to temp.tmp
  41.             m.fp = fopen("temp.tmp", 0)
  42.             m.str = fread(m.fp, 100)
  43.             =fclose (m.fp)
  44.             if "FORM" $ upper(m.str)
  45.                 if len(m.str) > 7
  46.                     if substr(m.str, 7, 1) = "."
  47.                     * form13.q12   form13.q1
  48.                     * 123456789A   123456789
  49.                         m.outstr = m.form + substr(m.str, 7, len(m.str)-6)
  50.                     else
  51.                     * form1.q12   form1.q1
  52.                     * 123456789   12345678
  53.                         m.outstr = m.form + substr(m.str, 6, len(m.str)-5)
  54.                     endif
  55.                 else
  56.                     m.outstr = m.form
  57.                 endif
  58.                 m.fp = fopen("temp.tmp", 1)
  59.                 =fwrite(m.fp, iif(screen.objtype=2, upper(m.outstr), m.outstr))
  60.                 =fclose(m.fp)
  61.                 append memo screen.tag from temp.tmp overwrite
  62.             endif
  63.             delete file temp.tmp
  64.             copy memo screen.expr to temp.tmp
  65.             m.fp = fopen("temp.tmp", 0)
  66.             m.str = fread(m.fp, 100)
  67.             =fclose (m.fp)
  68.             if "FORM" $ upper(m.str)
  69.                 if substr(m.str, 7, 1) = "."
  70.                 * form13.q12   form13.q1
  71.                 * 123456789A   123456789
  72.                     m.outstr = m.form + substr(m.str, 7, len(m.str)-6)
  73.                 else
  74.                 * form1.q12   form1.q1
  75.                 * 123456789   12345678
  76.                     m.outstr = m.form + substr(m.str, 6, len(m.str)-5)
  77.                 endif
  78.                 m.fp = fopen("temp.tmp", 1)
  79.                 =fwrite(m.fp, m.outstr)
  80.                 =fclose(m.fp)
  81.                 append memo screen.expr from temp.tmp overwrite
  82.             endif
  83.             continue
  84.         enddo
  85.         use
  86.     endfor
  87. endfor
  88.